home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / gfx / show / jcosub26.lha / JACOsub / rexx / begintime.jsrx < prev    next >
Text File  |  1994-01-07  |  533b  |  20 lines
  1. /* JACOsub BEGINTIME command demonstration.
  2.    This command changes the begin time for playing a script.
  3.  
  4.    BEGINTIME returns RESULT=0 if successful, or RESULT=1 if the time
  5.    string had a bad format, or 2 if there was a resolution conflict.
  6. */
  7.  
  8. if ~arg() then do ; say 'Need arguments H:MM:SS.FF and [counts/sec]' ; exit 1 ; end
  9. parse arg starttime secunits .
  10. options results
  11.  
  12. address 'JACOsub'
  13. 'BEGINTIME' starttime secunits
  14.  
  15. if result > 0 then
  16.     say 'error setting begin time'
  17. else
  18.     say 'begin time set successfully'
  19. exit result
  20.